home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.bin / More Information / QuickMail / Installer Resources / Scripts / CompuServe.TELENET.v2.01 < prev    next >
Text File  |  1992-03-20  |  3KB  |  184 lines
  1. * CompuServe Script, for QuickMail™
  2. * © 1988-89 CE Software, Inc.
  3. *
  4. * Title: CompuServe.TELENET.v2.01
  5. * Version: 2.01
  6. * Modification Date: 4/11/89
  7. * 
  8. * Modification History:
  9. * • 2.01 - 4/11/89: Formating and Name Changes.  Tested OK.
  10. *
  11. *
  12. * NOTES:
  13. * This is a simple script for logging onto CompuServe.  It assumes that
  14. * you are calling directly into the CompuServe network via Telenet.
  15. *
  16. *
  17. * THIS SCRIPT ONLY WORKS IF YOU ARE CALLING THROUGH TELENET.
  18. *
  19. *
  20. * This is called to log us into CompuServe
  21. :IN
  22. OOPS 120,FAILURE
  23. PAUSE 2
  24. TYPE @
  25. PAUSE 2
  26. TYPE ^M
  27. WAIT TERMINAL
  28. TYPE D1^M
  29. WAIT @
  30. TYPE C 202202^M
  31. WAIT User ID:
  32. TYPE «LOGID»;OLDF/GO:EMAIL^M
  33. WAIT Password:
  34. TYPE «PASSWORD»^M
  35. ALERT 1,IN2,Enter choice !
  36. ALERT 2,IN2,or HELp!
  37. ALERT 3,IN4,<CR>!
  38. ALERT 4,IN5,(Y or N)
  39. WAIT EasyPlex!
  40. :IN2
  41. ALERT 1,,
  42. ALERT 2,,
  43. TYPE Set Mode Command^M
  44. WAIT !
  45. TYPE Set Editor NoLine^M
  46. WAIT !
  47. TYPE Set Page Off^M
  48. WAIT !
  49. SUCCESS
  50. :IN4
  51. TYPE ^M
  52. WAIT EasyPlex!
  53. GOTO IN2
  54. :IN5
  55. TYPE Y^M
  56. WAIT EasyPlex!
  57. GOTO IN2
  58. *
  59. * This logs us off CompuServe
  60. *
  61. :BYE
  62. TYPE Bye^M
  63. ALERT 4,SUCCESS,DISCONNECTED
  64. ALERT 1,SUCCESS,NO CARRIER
  65. ALERT 2,B2,(Y or N)!
  66. ALERT 3,BYE,Host Name:
  67. :B1
  68. PAUSE 10
  69. SUCCESS
  70. :B2
  71. TYPE Y^M
  72. GOTO B1
  73. *
  74. * These are called to send one binary file
  75. *
  76. :XSEND
  77. OOPS 60,FAILURE
  78. TYPE Upload/PROTO:XMODEM/TYPE:Binary^M
  79. WAIT completed.
  80. XMODEM Upload,FAILURE
  81. GOTO S1
  82. :XAGAIN
  83. OOPS 60,FAILURE
  84. TYPE SEND^M
  85. GOTO S1
  86. *
  87. * This is called to send one piece of mail
  88. *
  89. :SEND
  90. OOPS 60,FAILURE
  91. TYPE Compose^M
  92. WAIT Enter message.
  93. TYPE Attn: «NAME»^M
  94. DUMP ^J
  95. TYPE /EX^M
  96. :S1
  97. WAIT (Name or User ID):
  98. TYPE «ADDRESS»^M
  99. ALERT 2,S5,%
  100. ALERT 3,S6,SEND!
  101. WAIT Subject:
  102. ALERT 2,,
  103. ALERT 3,,
  104. TYPE «TOPIC»^M
  105. ALERT 1,S3,Your name:
  106. :S2
  107. WAIT (Y or N)!
  108. TYPE Y^M
  109. ALERT 1,S4,Press <CR>!
  110. WAIT EasyPlex!
  111. SUCCESS
  112. :S3
  113. TYPE «FROM»^M
  114. GOTO S2
  115. :S4
  116. TYPE ^M
  117. WAIT EasyPlex!
  118. SUCCESS
  119. :S5
  120. ALERT 2,,
  121. ALERT 3,,
  122. ERRORINADDRESS
  123. WAIT to omit:
  124. TYPE ^M
  125. WAIT SEND!
  126. :S6
  127. ALERT 2,,
  128. ALERT 3,,
  129. TYPE ^M
  130. WAIT EasyPlex!
  131. SUCCESS
  132. *
  133. * This is called to resend the last message to someone else.  If there is
  134. * no label called "Again" in a script, it just calls Send for every file
  135. *
  136. :AGAIN
  137. OOPS 60,FAILURE
  138. TYPE EDIT^M
  139. WAIT [ Ready ]
  140. TYPE /T^M
  141. WAIT [ Top of file ]
  142. TYPE /N^M
  143. WAIT Attn:
  144. TYPE /R/Attn: «NAME»^M
  145. WAIT Attn:
  146. TYPE /EX^M
  147. WAIT SEND!
  148. TYPE SEND^M
  149. GOTO S1
  150. *
  151. * This is called to receive mail.  It is called continually with increasing
  152. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  153. * listing, if you wish
  154. *
  155. :RECEIVE
  156. OOPS 60,FAILURE
  157. TYPE Read all^M
  158. :R1
  159. ALERT 1,R10,EasyPlex!
  160. ALERT 2,R2,% Message is Binary
  161. BUFFER Action!
  162. RECEIVE Subj:,Attn:,From:,[,]
  163. TYPE Delete^M
  164. WAIT Delete
  165. GOTO R1
  166. :R2
  167. WAIT Action!
  168. TYPE Dow/Proto:XModem^M
  169. WAIT XMODEM transfer
  170. XMODEM Download,R3
  171. MAILFILE Subj:,Attn:,From:,[,]
  172. WAIT Action!
  173. TYPE Delete^M
  174. WAIT Delete
  175. GOTO R1
  176. :R3
  177. TYPE NOCOMMAND^M
  178. WAIT Action!
  179. TYPE Save^M
  180. WAIT Save
  181. GOTO R1
  182. :R10
  183. FAILURE
  184.